home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 70 / examples / examples.arc / COPY.ST < prev    next >
Text File  |  1985-11-20  |  436b  |  33 lines

  1. Class Main
  2. | i j k l |
  3. [
  4.     main
  5.         i <- Test new.
  6.         i set: 17.
  7.         j <- Test new.
  8.         j set: i.
  9.         k <- j deepCopy.
  10.         l <- j shallowCopy.
  11.         i set: 12.
  12.         k print.
  13.         l print.
  14.         i <- Test new.
  15.         i set: 17.
  16.         j <- #(2).
  17.         j at: 1 put: i.
  18.         k <- j deepCopy.
  19.         l <- j shallowCopy.
  20.         i set: 12.
  21.         k print.
  22.         l print.
  23. ]
  24. Class Test
  25. | var |
  26. [
  27.     printString
  28.         ^ 'test value ', var printString
  29. |
  30.     set: aVal
  31.         var <- aVal
  32. ]
  33.